home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / yaf77-1.1 / yaf77-1 / yaf77 / F77ext / ishft.c < prev    next >
Encoding:
Text File  |  1996-01-15  |  124 b   |  10 lines
  1. int ishft_ (a,m)
  2. int *a;
  3. int *m;
  4. {
  5.     static int res;
  6.     
  7.     res = ((*m < 0) ? *a << *m : *a >> *m);
  8.     return (res);
  9. }
  10.